home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / RTMultifileReq.asc < prev    next >
Text File  |  1980-03-10  |  1KB  |  53 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Rt Lib Open
  13. '  -Rt Multifile Req 
  14. '  -Rt Get Flist$
  15. '  -Rt Get Dir$
  16. '  -Rt Free Flist  
  17. '  -Rt Lib Close 
  18. '
  19. Screen Open 0,640,256,2,$8000
  20. Curs Off : Flash Off : Cls 0
  21. Colour 1,$FFF : Print 
  22. '
  23. Amos To Back 
  24. 'Ouverture de la reqTools.library
  25. E=Rt Lib Open
  26. 'Ouverture impossible
  27. If E=0 Then End 
  28. 'Sauvegarde du 'PathAmos'
  29. _DIR$=Dir$
  30. 'Appel au FileRequester
  31. RR=Rt Multifile Req("Selectionnez des fichiers SVP...",_DIR$,2)
  32. '
  33. 'Ok=1 / Cancel/Erreur/CloseGadget=0
  34. If RR>=1
  35.    Print "Bouton 'Ok' selectionné"
  36.    Print RR;" Fichier selectionné..."
  37.    For T=1 To RR
  38.       Print "Fichier";T;":";Rt Get Flist$(T)
  39.    Next T
  40. Else 
  41.    Print "Bouton 'Cancel' selectionné"
  42. End If 
  43. 'Replacer le 'PathAmos'
  44. Dir$=Rt Get Dir$
  45. Print 
  46. Print "Directory '";Dir$;"'"
  47. 'Liberer la FList
  48. Rt Free Flist 
  49. 'Refermer la librairie 
  50. Rt Lib Close 
  51. Amos To Front 
  52. Wait Key 
  53.